home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / TGCBOR20.ARJ / INTROPAK.COM / EXEVENT1.C < prev    next >
Text File  |  1991-04-25  |  2KB  |  73 lines
  1. #include "teglsys.h"
  2.  
  3.   optionmptr   om1, om2;
  4.  
  5.  
  6.  
  7.  
  8. unsigned  getmssense(imagestkptr  fs, msclickptr   ms)
  9.   {
  10.     /* setmousesense(fs->x,fs->y);  */
  11.     return 1;
  12.   }
  13.  
  14.   /* -- This event will open up a frame and display a message. Then  */
  15.   /* -- it returns leaving the frame displayed. Since no event has  */
  16.   /* -- been defined to close this frame then it will stay up, there  */
  17.   /* -- is no way to get rid of it.  */
  18.  
  19.  
  20. unsigned  infooption(imagestkptr  fs, msclickptr   ms)
  21.    {
  22.       unsigned         x, y, x1, y1;
  23.  
  24.       hidemouse();
  25.  
  26.       x = 200;
  27.       y = 120;
  28.       x1 = x + 340;
  29.       y1 = y + 100;
  30.  
  31.       pushimage(x,y,x1,y1);
  32.       setcolor(WHITE);
  33.       shadowbox(x,y,x1,y1);
  34.       setcolor(BLACK);
  35.       outtegltextxy(x + 5,y + 5,"TEGL Windows Toolkit II");
  36.       outtegltextxy(x + 5,y + 5 + teglcharheight(),"Jan 1,1990, Program Written by Richard Tom");
  37.  
  38.       showmouse();
  39.  
  40.       return 1;
  41.    }
  42.  
  43.  
  44.  
  45.  
  46. void main(void)
  47. {
  48.  
  49.    easytegl();
  50.  
  51.  
  52.    om1 = createoptionmenu(font14);
  53.    defineoptions(om1," ~O~pen ",TRUE,nilunitproc);
  54.    defineoptions(om1," ~I~nfo...",TRUE,infooption);
  55.    defineoptions(om1,"-",FALSE,nilunitproc);
  56.    defineoptions(om1," ~Q~uit ",TRUE,quit);
  57.  
  58.    om2 = createoptionmenu(font14);
  59.    defineoptions(om2," ~M~emory ",TRUE,nilunitproc /*showcoordinates*/);
  60.    defineoptions(om2," ~M~ouse Sensitivity ",TRUE,nilunitproc/*getmssense()*/);
  61.  
  62.    createbarmenu(0,0,getmaxx());
  63.    outbaroption(" ~F~ile ",om1);
  64.    outbaroption(" ~U~tility ",om2);
  65.  
  66.      /*  -- control is then passed to the supervisor  */
  67.  
  68.    teglsupervisor();
  69. }
  70.  
  71.  
  72.  
  73.